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1 c++ 
¢ ¢ Functional description: 
c 
c This is a collection of routines that display the VAX-11 famil 
5 € of MBA adapter registers. It is called by various massbus device 
c modules. 
c 
. Modified by: 
C v035-002 SAR0146 Sharon A. Reynolds, 5-0ct-1983 
C Added an SYE yodere that m ree the register heralds 
: generic for 11/ and i177 XX support. 
C v03-001 SARO080 Sharon A. Reynolds, 20-Jun-1983 
C Changed the core tage control in the ‘foraat™ “statenents 
; for use with 
¢ee 


subroutine mba_control Fogtaters (Lun,number_of_registers, 
1 adapter_regiSters,seTected_mapping_ register) 
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MBA_CONTROL REGISTERS 


include ‘srcS:msghdr.for /nolist’ 1 
1 1 
1 | 1 
byte lun , 
integer*4 number_of_registers , 
: integere4 adapter_registers(number_of_registers) , 
integer*4 selected_mapping_register i 
integere4 compress4 : 
1 
' 
if ¢ 61 
: ! LibSextzv(24,8,emb$l\_hd_sid) .eq. 255 3 
or 
1 libSextzv(24,8,emb$l_hd_sid) .eq. 1 
1) then 


gett rh780_control_registers (lun,adapter_registers, 
selected_mapping_register) 


else if (LibSextzv(24,8,emb$l_hd_sid) .eq. 2) then 


gett rh750_control_registers (lun,adapter_registers, 
selected_mapping_register) 


c 
c for future MBA support the ELSE-IF-THEN should be expanded 
c at this point. 
c 
else 
call Linchk (lun,(number_of_registers + 1)) 
do 20,i = 1,number_of_registers 
write(tun,10) *"'RH" REGISTER #',i,adapter_registers(i) 
10 format(' ',t8,a,i<compress4 (i)>,t24,28.8) | 
20 continue 


selected_mapping_register = -1 
— pping_reg 


return 
end 
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MBA_CONTROL REGISTERS i§-50 Sep-1984 00:23:01 -VAX=11 FORTRAN V3. 4-56 ° 
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PROGRAM SECTIONS 
Name Bytes Attributes 
244 
41 
‘bec is 
Total Space Allocated 901 


RD NOWRT LONG 


RD WRT LONG 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 


AP-000000108 ies 


Name 
MBA_CONTROL_REGISTERS 


EMBSL_HD_SID 
EMBSW_HD_ERRSEO 


LUN 
SELECTED -MAPPING_REGISTER 


Address Type 


3-00000004 I*2 
2-00000000 [4 
AP-00000008@ [*4 


Name 
EMBSW_HD_ENTRY 
NUMBER_OF _REGISTERS 


ARRAYS 
Address Type Name Bytes Dimensions 
AP C@ 1*4 ADAPTER_REGISTERS ee 8 (#) 
L*l EMB | (0:511) 
-00000006 I*4 EMBSQ_HD_TIME (2) 
LABELS 
Address Label Address Label 
1-00000017 10° oe 20 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 


I*4 COMPRESS LINCHK 


I*4 L19s 6B CON 
RH750_ CONTROL REGISTERS 80_CONTROL_REGISTERS 
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pebreut ine raven control registers (lun, adapter_registers, 
selected_mapping_register 


a 
. 


This royt ine displays the RH780 adapter registers. It expects 
the registers in the following order. 


Fee ne none eee ese ee emer aeneweeee } 


: configuration register H 


tease wn renee een e rn ee ee eee cee eee a} 
‘ control register H 
: status register ' 
: virtual address register 


emer oe sn enw ee nen neces ene we sccecne + 


' byte count register : 
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00 
00 
00 
00 
00 
oc 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
88 
00 
00 
00 


byte lun 

integer*4 adapter_registers(5) 
integer*4 selected_mapping_register 
integer*4 compress4 

logical*1 diagnostic_mode 

integer*4 byte_offset 

integer*4 selected_map_register 
integer*4 sbi_byte_count 

integere4 massbus_byte_count 


character*17 virh780_control_register(0:2) 

data virh780_control_register(0) /*INITIALIZATION®'/ 
data virh780_control_register(1) /*ABORT#'/ 

data virh780_control_register(2) /* INTERRUPT ENABLE®*'/ 
character*28 virh780_status_register (0:13) 

data virh780_status_register(0) /*READ DATA TIMEQUT®'/ 
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RH780_CONTROL_REGISTERS ig-e 3on- 130% 90: $3: 9 


-Sep-19 
data virh780_status_register(1) /"INTERFACE SEQUENCE TIMEOUT®'/ 
data virh780_status_register(2) /*READ DATA SUBSTITUTE®'/ 
data virh780_status_register(3) /"ERROR CONFIRMATION®'/ 
data virh780_status_register(4) /*INVALID MAP*'/ 
data virh780_status_register(5) /"PAGE FRAME MAP PARITY ERROR®'/ 
Gata virh780_status_register(6) /**MASSBUS" DATA PARITY ERROR*'/ 
data virh780_status_register(7) /*'MASSBUS" EXCEPTION®'/ 
data virh780_status_register(8) /*MISS TRANSFER ERROR*'/ 
data virh780_status_register(9) /‘WRITE CHECK LOWER ERROR*'/ 
data virh780_status_register(10) /"WRITE CHECK UPPER ERROR*'/ 
data virh780_status_register(11) /"DATA LATE®'/ 
data virh780_status_register(12) /"DATA TRANSFER ABORTED®'/ 
data virh780_status_register(13) /"DATA TRANSFER COMPLETED*'/ 


diagnostic_mode = .false. 


if (LibSextzv(3, \ odapter registers(2)) .eq. 1) 
1 diagnostic mode = .true. 


if (.not. diagnostic_mode) then 
os rh780_configuration_register (lun,adapter_registers(1)) 
else 


call Linchk (lun,2) 

write(lun, 10) ada apter regis ers(1) 
format(/" ',t8,'* RH" TSR*,t24,28.8) 
endif 

call Linchk (lun,1) 


write(Lun, 15) adapter re isters(2) 
format(' ',t8,'"RH" CR',t24,28.8) 


if (.not. diagnostic_mode) then 
all output (lun,adapter_registers(2),virh780_control_register, 
°0.002,"0" — . . 


call Linchk (lun,1) 


VAX-11 FORTRAN 
DISKSVMSMASTER: 


teat ge SRCIMBA.FOR; 1 


Page 


cuenta iE S9Be Q8:95:91 YAEL TAEORTEAY YE ay, eta 


rite(l 20) “DIAGNOSTIC MODE’ 
20 format t40,a) . 
endi 


—_ a td 


call Linchk (lun,1) 


rite(lun 125) apter_registers(3) 
25 format(’ 8, 4 RA SR ,t24, 28.8) 


if (.mot. diagnostic_mode) then 
57h OY HPes. jer -ntawter_reptoters(5) .vtrh700_status register, 


NOUS wir 


col} ra7O0_stotus_registerté_st (Lun, adapter_registers(3)) 


call Linchk (lun,1) 


write(lun, 30) pflepter registers(4) 
format(’. 08," RH VAR',t24,28.8) 


if (.not. diagnostic_mode) then 

byte_offset = LibSextzv(0,9,adapter_registers(4)) 
selected_map_register = LibSextzv(9,8,adapter_registers(4)) 
call Linchk (lun,2) 

if (byte_offset .eq. 0) then 

ur teotlen. 26? "PAGE ALIGNED’ 


=) 


write(lun, 35) byte. offset 
35 Feraatt” 240, <cOmpress4 (byte_offset)>,'. BYTE, PAGE OFFSET") 
e 


write(lun 40) or lected damap refea's'. 
40 format(' *,t40,'MAPP] S 
1 Fetempredts “he et ow _map_ contenatth.*: SELECTED") 


SES SSE SSSEECS 
VEU —O OONO Ue wN 0 


ww 
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call linchk (lun,1) 


write(tun 345) apter_re is ters(5) 
45 tormat(’. 8, 8 RA * ptr’ "93 bo 28. 3} 


if (.not. diagnostic_mode) then 
sbi_byte_count = LibSextv(0,16,adapter_registers(5)) 
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sbi_byte_count = max(0,sbi_byte_count) - min(0,sbi_byte_count) 
if (sbi_byte_count .ne. 0) then 
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call Linchk (lun,1) 


gr tvett a) °° 6 
50 formers Ge spi eS a By te Count .- 
endif’ 
massbus_byte_count = LibSextv(16,16,adapter_registers(5)) 


gesebus byte count = max(0,massbus_byte_count) - 
1 min(O;massbus_byte_count) 


if (massbus_byte_count .ne. 0) then 
call Linchk (lun,1) 
keds | massbus_byte count 

55 format(' 40,''MASSBUS"* BYTE COUNT , 
1 icconpresss Wl ay _byte_count)>,'.'$ 
endif 


selected _mapping_register = selected_map_register 


-i<compress4 (sbi_byte_count)>, 


return 
end 
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PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 44 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 3 =6©PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 1947 


ENTRY POINTS 
Add:ess Type Name 


0-00000000 RH780_CONTROL_REGISTERS 
VARIABLES 
Address Type Name Address Type Name 


RUERRRE, Ist pyteorese SRHETAR O32 RISERS GEE 
§ 158 I*4 $B1 BYTE COUNT AP-0 ica 1*4 SELECTED NAPPING NREGISTER 


BY 
CO I*4 SELECTED-MAP_REGISTER 
| 
| 


ARRAYS 


LABELS 
Address 
1~00000058 
FUNCTIONS AND 
Type Name 


RH780_CONTROL REGISTERS 


Address oe Name 


SRS Ck IRB 


Label 


40° 


Address Label 


0053 15° 
OO0E4 45° 


SUBROUTINES REFERENCED 


1*4 COMPRESS4 
RH780_STATUS_REGISTER16_31 


Address 


128000009 


Type Name 
I*4 LIBSEXTV 
OUTPUT 


Bytes 


Label 


5° 


1-48 -1 
~Sep-1 


Address 


12800001%¢ 


Be 90:60:91 


(2p 


Label 


Address’ Label 


1-00000082 30° 


Type Name 
I*4 LIBSEXTZV 


RH78 


Page 


CIMBA.FOR;1 


Address’ Label 


1-00000097 35° 


CONF IGURATION_REGISTER 
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gubrout ine rh750.contr 


registers (Lun, adapter_registers, 
selected_mapp r 


wet 


This selater displays the RH750 adapter registers. It expects 


the registers in the following order. 


bee wee emt e em em em em mem eee sew emcee + 


: garbage longword : 


+ SS SSSSSSSSSSSSSSSSSSSSSSSIGOSOSOSOS + 


: control register ‘ 


+ SSS SSS SSSSSSSSSSSSSSSISISOSGOGQS“SS&Se + 


: status register H 


eee er wweoe seer eer eon eer se ece wore e sae $ 


{| virtual address register i; 


te ewe rere ene ene een mew eee eee ew ence an $ 


H byte count register H 


foe wee wnw on m eam ner aro een een ecee en + 


byte lun 
integer*4 adapter_registers(5) 
integer*4 
byte 


integer*4 


selected_mapping_register 
diagnostic_mode 
byte_offset 

integer*4 selected_map_register 
integer*4 cmi_byte_count 
integer*4 massbus_byte_count 
integers4 compress4 

virh750_control_register (0:2) 
/*INITIALIZATION®'/ 
/*ABORT®'/ 
virh750_control_register(2) /* INTERRUPT ENABLE®*'/ 
v2rh750_control_register(4:4) 


/* IGNORE BYTE COUNT’ MODE*'/ 


charactert17 
data 
data 
data 
character*25 
data 


virh750_control_register(0) 
virh750_control_register(1) 


v2rh750_control_register(4) 


ig-$e0-1984 90:28:91 


RAN V3. 4-56 p 9 
TER:CERE.SRCIMBA.FOR:1 °° 


wie men TAH MRHEN ELAR Henson: 
character*l9 virh750_status_register(1:1) 

data virh750_status_register(1) /'NO RESPONSE STATUS*'/ 
character*28 v2rh750_status_register(3:14) 

data v2rh750_status_register(3) /*ERROR STATUS*'/ 

data v2rh750_status_register(4) /*INVALID MAP#'/ 

data v2rh750_status_register(5) /"PAGE FRAME MAP PARITY ERROR*'/ 
data v2rh750_status_register(6) /*'MASSBUS" DATA PARITY ERROR*'/ 
data v2rh750_status_register(7) /**MASSBUS'' EXCEPTION®'/ 

data v2rh750_status_register(8) /"MISS TRANSFER ERROR*'/ 

data v2rh750_status_register(9) /"WRITE CHECK LOWER ERROR*'/ 
data v2rh750_status_register(10) /'WRITE CHECK UPPER ERROR*'/ 
data v2rh750_status_register(11) /"DATA LATE®'/ 

data v2rh750_status_register(12) /"DATA TRANSFER ABORTED*'/ 

data v2rh750_status_register(13) /*DATA TRANSFER COMPLETED®*'/ 
data v2rh750_status_register(14) /‘SILO PARITY ERROR*'/ 


diagnostic_mode = .false. 


if (LibSextzv(3, ‘adapter. sregistoret2)) -eq. 1) 
1 diagnostic mode = .true 


call Linchk (lun,2) 


write(lun, 15) ogpp ter regi syerg' (3) 
15 format(/" ',t8,"' RH tr’ 34 


if (.not. diagnostic_mode) then 

WY 0 gteHt, (Lun, adapter_registers(2),virh750_control_register, 
1.4 oyteyt (lun, adapter_registers(2) ,v2rh750_control_register, 
call linchk (lun,1) 


write(lun, 200 pean MODE’ 
20 format ( 


13 
RH750_CONTROL_REGISTERS IB-8e -1984 00:23:01 VAX-11 FORTRAN V3.4-56 P 11 
=300 7138 90:60:51 DISKSVMSMASTE 2: CERF. SRCIMBA.FOR: 1 me 


MN endif 00¢ 
At call Linchk (lun,1) O9¢ 
11 write(lun.25) adapter registers (3) 90¢ 
, 25 format’ fctB, RAY SR’ ,t24,28.8) O9¢ 
j § if (.not. diagnostic_mode) then 
; ¢ get! outeys (lun.edapter_registers(5) virh750_status register, 001 
1 o e 1 
£°h' Oy fONg. 5 em -edentor _reptsters(5) ,verh7s0_status register, 8 
1 call rh750_status_register16_31 (lun,adapter_registers(3)) 001 
' 1 endif aS, 
: : call Linchk (lun,1) id 
135 write(lun,30) adapter_registers(4) 00¢ 
: 30 format(' ',t8,""'RH" VAR’ ot 2428.8) B04 
< 
‘ S if (.mot. diagnostic_mode) then gos 
140 byte_offset = LibSextzv(0,9,adapter_registers(4)) 808 
O14 selected_map_register = LibSextzv(9,8,adapter_registers(4)) oos 
144 all Linchk (lun,2) 00: 
pies : or 00: 
O146 if (byte_offset .eq. 0) then O04 
Oié8 write(lun,20) ‘PAGE ALIGNED’ 003 
182 else B05 
018) write(lun,35) byte_offset 00: 
01 § 35 format(’ ',t40,i<cOmpress4 (byte_offset)>,'. BYTE, PAGE OFFSET") 00: 
O18 endif $03 
136 write(lun,40) selected map register 004 
136 40 format(' ',t40,"MAPPING REGISTER #', 004 
15 1 i<compress4 (selected_map_register)>,'. SELECTED") 004 
138 endif Bb4 
1 
+ call Linchk (lun,1) Boe 
16 write(lun,45) adapter_registers(5) 
188 45 format(' eB, RA" ptr’ -t24,28.8) 00% 
103 if (.not. diagnostic_mode) then 3 
169 cmi_byte_count = LibSextv(0,16,adapter_registers(5)) 
189 cmi_byte_count = max(0,cmi_byte_count) - min(0,cmi_byte_count) 09 
171 if (cmi_byte count .ne. 0) then 00! 


pee annacnphennneeil 4 
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call Linchk (lun,1) 


rite(Lun 190) cmi_byte 
50 former 1 t40 Pk «3 Ga 


endif 
massbus_byte_count = LibSextv(16,16,adapter_registers(5)> 


gossbus byte count = max(0,massbus_byte_count) - 
1 min(O;massbus_byte_count 


if (massbus_byte_count .ne. 0) then 
call Linchk (lun,1) 
write(lun,55) massbus b te_count 

55 format(' *,t40,'" MASSBUS" BYTE COUNT, ' 
1 i<compress4 ha on _byte_count)>,§.'5 
endif 

endif 


selected_mapping_register = selected_map_register 


E CouNT - *,i<compress4 (cmi_byte_count)>, 


return 


ou ts 4 o_o > _ as 4 4 > tg 
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end 
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PROGRAM SECTIONS Bor 
Name Bytes Attributes 09 
? SCODE 19 PIC CON REL LCL SHR EXE RD NOWRT LONG 
SPDATA 89 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 6 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 2021 bo. 
00' 
ENTRY POINTS 89; 
Address Type Name $0 
0-00000000 RH750_CONTROL_REGISTERS 80: 
00' 
VARIABLES 4 
q 
Address Type Name Address Type Name sg 
q 
-00000180 I*4 BYTE_OFFSET 2-00000188 I*4 CMI_BYTE_COUNT 00; 
-OO0O001AF L*l DIAGNOSTIC_MODE AP-00000004@ L*1 LUN” . 00, 
-000001BC I*4 MASSBUS_BYTE_COUNT AP-0000000C@ I*4 SELECTED_MAPPING_REGISTER 00; 
-000001B4 I*4 SELECTED_MAP_REGISTER sf 
00; 
ARRAYS 00, 
00: 
Address Type Name Bytes Dimensions $0; 
AP-00000008@ 1*4 R_REGISTERS 0 (5) 00! 
e 900000" CHAR V1RH750_CONTROL_REGISTER 1 (0:2) 00: 
-000004¢ CHAR VIRH750-STATUS REGISTER 19 (1) 00! 
33 CHAR V2RH750_CONTROL_REGISTER $2 (4:4) 00: 
~0000005F CHAR V2RH750-STATUS_REGISTER 336 (3:14) 00; 
60: 
LABELS 9 
Address Label Address’ Label Address Label Address Label Address Label Address Label 00: 
1 , 73° 1- 5 . 1- 05D 25° 1-00000071 30° 1-00000086 35° 1-000000A7 40° 
1=00000008 48" 190000088 $0" 100000108 $8" 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 


1*4 COMPRESS4 1*4 LIBSEXTV Ie6 LIBSEXTZV 
LINCHK OUTPUT RH750_STATUS_REGISTER16_31 


13 
16-Sep-1 0:23:01 VAX-11 FORTRAN V3.4-56 P 14 
b-Sen-1984 90:83:91 DI SKSVMSMASTER: CERF. SRCIMBA.FOR: 1 — 


subroutine mba_status_register16_31 (lun, register!,register2, flag) 


¢ . 
PRC 
0008 c++ 
D005 c ‘flag’ is used in the following way. If flag is equal to 0 
pie ¢ then the status represented in ‘register!’ is output. If fla 
001 c is equal to 1 then the status represented by the difference o { 
pots : additionally set bits in ‘register!’ and ‘register2'. 
16 
1? 
0917 include ‘src$:msghdr.for /nolist' EN] 
8 
78 
0079 ( 
: byte Lun 
¢ integer*4 register! VAI 
: integer*4 register2 
eos byte flag Al 
Res integer*4 pseudo_status_register 
0090 integer*4 status_register!_bits 
integers4 status_register2_bits LAE 


MewnN— 


if (flag .eq. 0) then 

pseudo_status_register = iand(register!,'ffff0000'x) FUl 

else if (flag .eq. 1) then 

status_registerl_bits = iand(register!,'ffff0000'x) | 

statuz_register2_bits = iand(register2,'ffff0000'x) 
| 
| 


33 


pequde status_register = . 
\ Lenetnot ‘stitus_register! pits) stetus_register2 pits) 


if (pseudo_status_register .ne. 0) then 


SSLESFENLS 


ed a ee as = 1 = ss 4 


— ed sd et 
Wmrwn—o 


if ( 
' LibSextzv(24,8,emb$l_hd_sid) .eq. 255 


MBA_STATUS_REGISTER16_31 


ig eant94e 90:38: 


11 1 LibSextzv(24,8,emb$\_hd_sid) .eq. 1 

At 1) then 

1} call rh780_status_register16_31 (lun, pseudo_status_register) 
; else if (LibSextzv(24,8,emb$i_hd_sid) .eq. 2) then 

; § call rh750_status_register16_31 (lun,pseudo_status_register) 
125 c 

1 $ c for future MBA support the ELSE-IF-THEN should be expanded 

1 c at this point. 

; c 

1 endif 

131 endif 

138 

; return 

135 end 


PROGRAM SECTIONS 


Name Bytes Attributes 

0 SCODE 132 PIC CON REL LCL SHR EXE 

1 SPDATA PIC ce REL LCL SHR NOEXE 

é SLOCAL 4 PIC CON REL LCL NOSHR NOEXE RD 
EMB 51 PIC OVR REL GBL SHR NOEXE R&D 


Total Space Allocated 692 


ENTRY POINTS 
Address Type 
0-00000000 


Name 
MBA_STATUS_REGISTER16_31 


VARIABLES 


Address Type Address Type Name 


; AZ 04 i EMBSW_HD_ENTRY 
aP-000000( 2- gat PSEUDO STATUS 
AP AP- ca Is Is4 REGISTER2 

2 2- STATUS EREGISTE 


VAX=11 FORTRAN 
DISKSVMSMASTER: 


RD NOWRT LONG 
RD — LONG 


WRT LONG 
WRT LONG 


REGISTER 
R2_BITS 


3.4-56 
ERF. SRCIMBA. FOR;1 


Page 


| 
— 


15 


MBA_STATUS_REGISTER16,31 ife}e 2b-198¢ 12:60:51 


ARRAYS 
Address Type Name Bytes Dimensions 


aida Oa EMBSO_HD_TIME a fyi 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
1*4 LIBSEXTZV RH750_STATUS_REGISTER16_31 


Type 


Yea 4-56 
VMSMASTER:LERF .SRCJMBA.FOR; 1 


Name 
RH780_STATUS_REGISTER16_31 


Page 


16 


| 
a 


—_———+ 


H 13 
"S3eR=138e $2:85:81 — biSdimmasten: tear shcamen.ror;1 88 17) 


subroutine rh780_status_registerl6_31 (lun,status_register) 


byte Lun 


38333333838 


integer*4 status_register 

character*31 virh780_status_register (16:19) 

data virh780_status_register(16) /‘ATTENTION®'/ 

data virh780_status_register(17) /"’MASSBUS" CONTROL PARITY ERROR*'/ 

data virh780_status_register(18) /"NON-EXISTING DRIVE*'/ 

0038 data virh780_status_register(19) /"PROGRAMMING ERROR*'/ 

9034 character*25 v2rh780_status_register (29:31) 
| 
| 
| 


LO ee eel 
SCOWOONOU Sw oO OC 


S83ss 


SSSSSSSSSSSSSSS 


oo : data v2rh780_status_register(29) /"CORRECTED READ DATA®'/ 
oS ; data v2rh780_status_register(30) /"NO RESPONSE CONF IRMATION®'/ 
3H data v2rh780_status_register(31) /"DATA TRANSFER BUSY*'/ 
00 
0038 
ato) call output (lun,status_register,virh780_status_register,16,16,19,'0") 
60 call output (lun,status_register,v2rh780_status_register,29,29,31,'0") 
return 
3H 
0 end 


00 
00, 
00, 
00. 
00: 
00. 
00. 
00. 
00. 
00: 
00. 
00. 
00 
00 
00: 
00: 
09 
09 
§ 


RH780_STATUS_REGISTER16_31 


PROGRAM SECTIONS 


Name Bytes 
? SCODE +6 
SPDATA } 

2 SLOCAL 336 
Total Space Allocated 400 


ENTRY POINTS 
Address Type Name 
0-00000000 RH780_STATUS_REGISTER16_31 


VARIABLES 
Address Type Name 
AP-00000004@ L*1 LUN 


ARRAYS 
Address Type Name 
-00000000 CHAR VIRH780_STATUS_RE 
Pa tsi CHAR V2RH780_STATUS_RE 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
OUTPUT 


if Feon1 9B 00:28:01 


Attributes 


RD NOWRT LONG 
RD NOWRT LONG 
RD WRT LONG 


Address Type Name 
AP-000000088 I*4 STATUS_REGISTER 


Bytes Dimensions 
oe (38: 1?) 


VAX=-17 FORTR 
DISKSVMSMAST 


AN aif 4-56 Page 18 
ER: LERF.SRCIMBA.FOR;1 


en + 


13 
TEReOcHIES QO:S3:0} YINCHIAERRTTAN YEG $6 nae ron. 0" 1 


subroutine rh750_status_register16_31 (lun,status_register) 


byte lun 

integer*4 status_register 

character*31 virh750_status_register (16:19) 

data virh750_status_register(16) /*ATTENTION®'/ 

data virh750_status_register(17) /*'MASSBUS" CONTROL PARITY ERROR*'/ 
data virh750_status_register(18) /"NON-EXISTENT DRIVE*'/ 
data virh750_status_register(19) /"PROGRAMMING ERROR*'/ 
character*17 v2rh750_status_register (23:23) 

data v2rh750_status_register(23) /*CONTROL BUS HUNG*'/ 
character*20 v3rh750_status_register (29:29) 

data v3rh750_status_register(29) /"CORRECTED READ DATA®'/ 
character*19 v4rh750_status_register(31:31) 

data v4rh750_status_register(31) /"DATA TRANSFER BUSY*'/ 


call output (lun,status_register,virh750_status_register,16,16,19,'0") 


SSSSSSSS8S3S3SS3sssss 


SSVEREUS 


call output (lun,status_register,v2rh750_status_register,23,23,23,'0") 
call output (lun,status_register,v3rh750_status_register,29,29,29,'0") 
call output (lun,status_register,v4rh750_status_register,31,31,31,'0") 


return 
end 


Srereees 


K 13 
RH750_STATUS_REGISTER16_31 16-Sep-1984 00:23:01  VAX=11 FORTRAN V3.4-56 Page 20 
Hae 70:60:51 DI SKSVMSMASTER: ERF.SRCIMBA.FOR;1 


PROGRAM SECTIONS 


Name Bytes Attributes 
° SCODE 94 PIC CON REL LCL SHR EXE RD NOWRT LONG 
SPDATA £6 PIC CON REL LCL SHR NOEXE RD wat LONG 
2 SLOCAL 444 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 560 
ENTRY POINTS 
Address Type Name 
0-00000000 RH750_STATUS_REGISTER16_31 
VARIABLES 
Address Type Name Address Type Name 
AP-00000004@ L*1 LUN AP=00000008@ I1*4 STATUS_REGISTER 
ARRAYS 
Address Type Name Bytes Dimensions 
mses 4494 CHAR V1RH7 NyeO" STATUS_REGISTER 124 16:19) 
C CHAR ae Le “STATUS_REGISTER 17 (23:23) 
~Sopppnee CHAR V5RH7 536- STATUS_REGISTER 20 (29:29) 
Al CHAR V4RH750~STATUS_REGISTER 19 (31:31) 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
OUTPUT 


00 
00 
00 
00 
00 
00 
00 
s 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
91 

1 
91 

1 
01 
01 
91 

1 

1 

1 

1 

1 
91 

1 
01 

1 


13 
1§-Se0-1984 90: 63791 VAX=11 FORTRAN V3.4-56 
“Sep-1984 14:00:51 DISKSVMSMASTER: CERF .SRCIMBA.FOR;1 


pebrout ine mba_mapping_register (lun,mapping_register_number, 
mapping_register_image) 


include ‘src$:msghdr.for /nolist’ 


byte Lun 

integer*4 mapping_register_number 
integer*4 mapping_register_image 
integer*4 compress4 


f ¢ 
ibSextzv(24,8,emb$l_hd_sid) .eq. 255 
or. 

ibSextzv(24,8,emb$l_hd_sid) .eq. 1 
then 


i 
11 
1. 
Tt 
1) 
c 

1 


all rh780_mapping_register (lun,mapping_register_number, 
mapping_register_ image) 
else if (LibSextzv(24,8,emb$l_hd_sid) .eq. 2) then 


call ch750_mapping_register (lun,mapping_register_number, 
1 mapping_register_image) 


0088 
0090 
0091 
0098 
009 


SePeres: 


c 
c for future MBA support the ELSE-IF-THEN should be expanded 
c at this point. 

1 § C 

1 

i else 

1 call Linchk (lun,1) 

13 

Hs if (mapping_register_number .ne. -1) then 

110 write(lun,10) erpping.register number mapping_register_image 

111 10 format (* -t8,°"RH" APR * i<compress4 (mapping_register_number)>, 

Ne 1 °.",t26,28.6) 

BF else 

115 write(lun,15) mapping_register_image 


Page 21 


SOSOOOSOSOOSSOSOOOOSOOSoOoooO 


MBA_MAPPING_REGISTER -Sep-1 1:23:01 - VAK-11- FORTRAN V3.4-56 p 
1$-Sep-1964 PF5538) Peek inGReTEN Peat Secompa.ron:1, "2% 

11 15 format(' ',t8,""RH' MPR #222", t24,28.8) 9 

11 endif 

i endif ; 

13 return , 
1 

122 end ot 


PROGRAM SECTIONS 


Name Bytes Attributes 
9 CODE 23 PIC CON REL LCL SHR EXE RD NOWRT LONG 
SPDATA 0 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
SLOCAL 5 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 873 


ENTRY POINTS 
Address Type Name 


0-00000000 MBA_MAPPING_REGISTER 
VARIABLES 
Address Type Name Address Type Name 
3 133 EMBSL_HD_SID 3- 8 8 4 is¢ EMBSW_HD_ENTRY 
E EMBSW_HD ERRSEQ AP- 4a .*1 LUN 
ca 138 MAPPIRG_REGISTER_IMAGE 2-00000000a8 I*4 MAPPING_REGISTER_NUMBER 
ARRAYS 
Address Type Name Bytes Dimensions 
$= 90000000 Le] €EMB | £95511) 
I*4 EMBSOQ_HD_TIME (2) 
LABELS 
Address Label Address’ Label 


1-0060000C 10° 1-0000002C 15° 


rae, sitet seme ae iE ERTRRE ABSGE:AT YAEL TWERRTEAN YES a. cons P88 2 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 


1*4 COMPRESSS 1*4 Ligsexty LINCHK 
RH750_MAPPING_REGISTER * RAPPING ~REGISTER 


~3e0~1984 90:43:01 VAX=11 FORTRAN ¥3.4-56 


' 


pebrout ine rh780_mapping_ register (lun,mapping_register_number, 
mapping_register_image) 


; byte Lun 
H inteyer*4 mapping_register_number 
1 integer*4 mapping_register_image 
01 integer*4 compress4 
1 integer*4 compressf 
integer*4 pfn 
real*4 transfer_address 


call Linchk (lun,1) 
if (mapping_register_number .ne. -1) then 


—"OOOBNOUESWN —“OOONOU Sw 0 


SSS Nee 


write(lun,10) mapping register_number ,mapping_register_image 
tt8, "RH APR # i<compressé (mapping, register nu 


SSS888388838S3ssssss 


3 10 format(’ °,t8,*° -i<compress4 (ma _register_number)>, 
1 "> ste 8 6) ° a . ° 
¢ else 
write(lun,15) mapping register_image 
15 format(' tte, RH" APR 9239" t24,28.8) 
9 endif 


if (LibSextzv(31,1,mapping_register_image) .eq. 1) then 
call Linchk (lun,2) 


write(lun,20) ‘VALID* 
20 format(’ *.t40,a) 


pfn = LibSextzv(0,21,mapping_register_image) 
transfer_address = real(pfn)/2 
write(lun.25) transfer address 


25 format(' ',t40,'TRANSFER PAGE, ' 
1 t<conpresst (transfer_address,!)>.1,°. K") 
en 


return 


NONE WN OOOO lwn Oo 


Pihireenisseseeaes 


DISKSVMSMASTER:LERF .SRCJMBA.FOR; 1 


f 
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wef 


14 
RH780_MAPPING_REGISTER Ip-Se0-19 4 90: 5701 VAX=11 FORTRAN V3.4-56 Page 25 
“Sep-1984 14:00:51 DISKSVMSMASTER:LERF .SRCIMBA.FOR;1 


0058 end 


PROGRAM SECTIONS 


Name Bytes Attributes 

SPDATA 125 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 96 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 

Total Space Allocated 500 


ENTRY POINTS 
Address Type Name 


0-00000000 RH780_MAPPING_REGISTER 
VARIABLES 
Address Type Name Address Type Name 
AP-000000048 L*1 LUN AP-0000000C@ 1*4 MAPPING_REGISTER_IMAGE 
2-00000008@8 1*4 MAPPING _REGISTER_NUMBER 2-00000000 I*4 PFN 
2-00000004 R*4 TRANSFER_ADDRESS 
LABELS 
Address Label Address Label Address Label Address’ Label 
1-00000019 10° 1-00000039 15° 1-00000053 20° 1-0000005A 25° 


tal LALA LAL Lad ILA AI CARR PAAR) 2 3 2 = 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name 
1*4 COMPRESS4 I*4 COMPRESSF I*4 LIBSEXTZV LINCHK 


ie 
000 
00¢ 
00 
00¢ 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
3 
004 
004 
: 
004 
8 
00 
00 
: 


LPL ALAA ALAA 


} 
| 
9 SCODE 279 PIC CON REL LCL SHR EXE RD NOWRT LONG 


=A nats aging! aE 


Se 1984 00:27:01 VAX=11 FORTRAN V3.4-56 Pa 26 
if Sep-1984 92:60:51 DISKSVMSMASTER: CERF .SRCJMBA.FOR; 1 “nm 


subroutine rh750_mapping_register (lun,mapping_register_number, 
1 mapping_register_image) 


C06 

: 006 

19 006 

; byte a) Ooe 

0018 integers4 mapping_register_number id 

9015 integere4 mapping_register_image id 

0017 integers4 compress4 id 

9019 integers4 compresst od 

0021 integere4 ptn id 

008 

$3 § real*4 transfer_address O08 

5 

a 

0057 008 

99 8 call Linchk (lun,1) si 

09 : if (mapping_register_number .ne. -1) then Ooe 

write(lun, 10) ma ing_register_number ,mapping_register_image 008 

e g 10 forage as. 28 eRe APR }: , i<compress4 (nape the Fosistér., maberts Boe 

009 

5 else 003 
rite(Lun, 15) ma register_ima 

15 format(* ‘8. pp MAPR 23 22" ,€24, 38. 8) Bos 

H endif 005 

1 if (LibSextzv(31,1,mapping_register_image) .eq. 1) then Boe 

§ call Linchk (Lun,2) aig 

5 write tun,20) "VALID! 4 

§ 20 format(' ',t40,a) 1¢ 

8 pfn = LibSextzv(0,16,mapping_register_image) At 

2 transfer_address = real(pfn)/2 At 

26 greet lente) transfer address 1¢ 

25 format(' ',t40,'TRANSFER PAGE, ° 1 

34 1 1 fccompresst “Sey oh 5g _address,{)>.1,". K") u 

2 1! 

2 return Ol 


SS — | 


i nn —— 


RH750_MAPPING_REGISTER if-fe son- 138% 90: $3: g VAX-11 Page 27 


FORTRAN te 4-56 
-Sep-19 DISKSVMSMASTER: CERF .SRCJMBA.FOR;1 
ooe8 end 


PROGRAM SECTIONS 

Name Bytes Attributes 
R EXE RD NOWRT LONG 
R NOEXE RD NOWRT LONG 
R NOEXE RD WRT LONG 


9 SCODE 
SPDATA $2 

2 SLOCAL 6 
Total Space Allocated 500 


ENTRY POINTS 
Address Type Name 
0-00000000 RH750_MAPPING_REGISTER 


VARIABLES 
Address Type Name Address Type Name 
AP-000000048 L*1 LUN AP-0000000Ca I*4 narPine.. REGISTER_IMAGE 


-00000008@ I1*4 MAPPING REGISTER_NUMBER 2-00000000 1*4 
00000004 R*4 TRANSFER_ADDRESS” 


MPIPIPININPINIPINPIPIPIPIPINIPININPINININININID 2 PO OO Os es ee 


LABELS 
Address Label Address Label Address’ Label Address Label 
1-00000019 10° 1-00000039 15° 1-00000053 20° 1-0000005A <35' 


Mn 


0 
o 
0 
) 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name 
1*4 COMPRESS4 I*4 COMPRESSF I*4 LIBSEXTZV LINCHK 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:MBA/OBJ=0BJ$:MBA MSRC$:MBA 


/CHECK = (NOBOUNDS OVERFLOW, NOUNDERF LOW) 
/DEBUG= (NOS YMBOLS , TRACEBACK ) 

/STANDARD=(NOSYNTAX ,NO EDURCE FORM) | 

/SHOW= (NOPREPR PROCESSORS NOINCLODE, 

/°77 /NOG_FLOATING 714 TbPTGATIE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


ee ek ok ok ok ok ok ok hk ok oR BP A OPN PA BP DPA DPR RID ek ed ek ed ek nd nd nd ts CS SELVA IO NHHNNONHHOHON Nes 


COOOCOCOCCOOSoO: 


PRPIPNININIPIMPIPNINININININ NIN PNY 


ai. xe 


ooooo 


a 


F 14 
RH750_MAPPING_REGISTER 16-Sep-1 :23:01 - VAX=11_ FORTRAN 3.456 P 
eH ety 90:80:91 DtSKSVMSAS TEN: Eat ssrcimea.ror;1 “°% %8 


COMPILATION STATISTICS 
Run Time: 10.34 seconds 
Elepsed Time: 35 seconds 


age Faults: 3 
Dynamic Memory: pages 


POPPI PIPININIPINIPINININPININININNININININININPIPNIPINIPIPININPINIPIPIPIPININININININD 
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